SUBROUTINE INTERFACE_pvmodel_pre(G_PVunit, INJ_ABC, V_ABC, DELT, PVarray_pars, Boost_pars, CPB_pars, VSC_pars, LC_pars, PVunit_Bre_pars, Trans_pars, DATA_OUT)
    
        REAL G_PVunit(6)
        REAL INJ_ABC(3)
        REAL V_ABC(3)
        REAL DELT
        REAL PVarray_pars(17)
        REAL Boost_pars(6)
        REAL CPB_pars(4) 
        REAL VSC_pars(4)
        REAL LC_pars(4)
        REAL PVunit_Bre_pars(2)
        REAL Trans_pars(7) 
        REAL DATA_OUT(10)

        INTERFACE
    
            SUBROUTINE pvmodel_pre(G_PVunit, INJ_ABC, V_ABC, DELT, PVarray_pars, Boost_pars, CPB_pars, VSC_pars, LC_pars, PVunit_Bre_pars, Trans_pars, DATA_OUT) 
    
                !DEC$ ATTRIBUTES C :: pvmodel_pre
          
                !DEC$ ATTRIBUTES REFERENCE :: G_PVunit, INJ_ABC, V_ABC, DELT, PVarray_pars, Boost_pars, CPB_pars, VSC_pars, LC_pars, PVunit_Bre_pars, Trans_pars, DATA_OUT
          
                REAL G_PVunit(6)
                REAL INJ_ABC(3)
                REAL V_ABC(3)
                REAL DELT
                REAL PVarray_pars(17)
                REAL Boost_pars(6)
                REAL CPB_pars(4) 
                REAL VSC_pars(4)
                REAL LC_pars(4)
                REAL PVunit_Bre_pars(2)
                REAL Trans_pars(7)
                REAL DATA_OUT(10)
    
            END SUBROUTINE
       
        END INTERFACE
    
        CALL pvmodel_pre(G_PVunit, INJ_ABC, V_ABC, DELT, PVarray_pars, Boost_pars, CPB_pars, VSC_pars, LC_pars, PVunit_Bre_pars, Trans_pars, DATA_OUT) 
    
        END
    

SUBROUTINE INTERFACE_pvmodel(G_PVunit, INJ_ABC, V_ABC, Dblk1, SW_AC, SW_DC, Vchar, DATA_OUT)
        
        REAL G_PVunit(6)
        REAL INJ_ABC(3)
        REAL V_ABC(3)
        INTEGER Dblk1
        INTEGER SW_AC(7)
        INTEGER SW_DC(4)
        REAL Vchar
        REAL DATA_OUT(10)

        INTERFACE
    
            SUBROUTINE pvmodel(G_PVunit, INJ_ABC, V_ABC, Dblk1, SW_AC, SW_DC, Vchar, DATA_OUT) 
    
                !DEC$ ATTRIBUTES C :: pvmodel
          
                !DEC$ ATTRIBUTES REFERENCE :: G_PVunit, INJ_ABC, V_ABC, Dblk1, SW_AC, SW_DC, Vchar, DATA_OUT
    
                REAL G_PVunit(6)
                REAL INJ_ABC(3)
                REAL V_ABC(3)
                INTEGER Dblk1
                INTEGER SW_AC(7)
                INTEGER SW_DC(4)
                REAL Vchar
                REAL DATA_OUT(10)

            END SUBROUTINE
       
        END INTERFACE
    
        CALL pvmodel(G_PVunit, INJ_ABC, V_ABC, Dblk1, SW_AC, SW_DC, Vchar, DATA_OUT) 
    
        END